home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Learning Director.dcr / Internal_9_SS_MenuInit.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  965 b   |  19 lines
  1. on exitFrame
  2.   set autoChannels to GetAutoChannels()
  3.   puppetSprite(getaProp(autoChannels, #listTextFIELD), 1)
  4.   puppetSprite(getaProp(autoChannels, #vscrollBITMAP), 1)
  5.   puppetSprite(getaProp(autoChannels, #thumbBITMAP), 1)
  6.   puppetSprite(getaProp(autoChannels, #upScrollBITMAP), 1)
  7.   puppetSprite(getaProp(autoChannels, #downScrollBITMAP), 1)
  8.   set scrollerData to [:]
  9.   set listCells to []
  10.   set lessonNameList to getlist("@LessonListNames#field", "AuthorData")
  11.   repeat with lessonName in lessonNameList
  12.     append(listCells, lessonName)
  13.   end repeat
  14.   addProp(scrollerData, getaProp(autoChannels, #listTextFIELD), listCells)
  15.   SG(#gActiveScroller, birth(script "PS_ListScroller", getaProp(autoChannels, #vscrollBITMAP), getaProp(autoChannels, #thumbBITMAP), getaProp(autoChannels, #upScrollBITMAP), getaProp(autoChannels, #downScrollBITMAP), scrollerData))
  16.   set pos to findPos(GG(#gLessonList), GG(#gLessonNum))
  17.   selectLine(GG(#gActiveScroller), pos, 1)
  18. end
  19.